Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_38978.txt

Text File | 1990-08-07 | 7KB | 370 lines

-- card: 38978 from stack: in.0-2
-- bmap block id: 39410
-- flags: 0000
-- background id: 27044
-- name: information
----- HyperTalk script -----
-- This handler performs the animation.
on doAnimation
  reset
  rollIt
  showDataMain
  doMac
  doScrewdriver
  showDataMac
  wait 60
  reset
  show cd btn "See It Again"
end doAnimation

-- This handler resets the animation.
on reset
  hide btn "mac"
  hide btn "screwdriver"
  hide btn "data"
  hide cd btn "See It Again"
  set the icon of btn "data" to 8808
end reset

----------------------------
-- These are mini animations used by doAnimation.
on rollIt
  repeat for 6
    repeat with n = 1 to 3
      set the icon of btn "diska" to ("diska" & n)
      if n = 2 then
        set the icon of btn "tape" to "tape2"
      else
        set the icon of btn "tape" to "tape1"
      end if
    end repeat
    repeat with n = 1 to 3
      set the icon of btn "diskb" to ("diskb" & n)
      if n = 2 then
        set the icon of btn "tape" to "tape2"
      else
        set the icon of btn "tape" to "tape1"
      end if
    end repeat
  end repeat
end rollIt

on showDataMain
  repeat for 2
    set the loc of btn "data" to line 1 of cd fld "dataLocs1"
    show btn "data"
    repeat with n = 1 to 3
      repeat with m = 1 to 12
        set the loc of btn "data" to line m of cd fld ("dataLocs" & n)
      end repeat
    end repeat
    hide btn "data"
  end repeat
end showDataMain

on doMac
  lock screen
  show btn "mac"
  unlock screen with dissolve
  wait 10
  screenToDo
  wait 20
end doMac

on screenToDo
  repeat for 2
    repeat with n = 1 to 4
      set the icon of btn "thingshappen" to ("disturbance" & n)
      wait 10
    end repeat
  end repeat
  set the icon of btn "thingshappen" to 0
end screenToDo

on doScrewdriver
  lock screen
  show btn "screwdriver" at 256,124
  unlock screen with dissolve
  wait 20
  repeat for 2
    set the loc of btn "screwdriver" to 314,131
    wait 10
    set the loc of btn "screwdriver" to 334,136
    wait 10
    set the loc of btn "screwdriver" to 340,147
    wait 10
    set the loc of btn "screwdriver" to 359,120
    wait 10
  end repeat
  set the loc of btn "screwdriver" to 256,124

  wait 20
  lock screen
  hide btn "screwdriver"
  unlock screen with dissolve
end doScrewdriver

on showDataMac
  repeat for 2
    repeat with n = 1 to 3
      set the loc of btn "data" to line 1 of cd fld "dataLocs1"
      show btn "data"
      set the icon of btn "data" to 8808
      repeat with m = 1 to 6
        set the loc of btn "data" to line m of cd fld ("dataLocs" & n)
      end repeat
      if n = 1 then
        set the icon of btn "data" to "menu1"
      else
        if n = 2 then
          set the icon of btn "data" to "palette2"
        else
          if n = 3 then
            set the icon of btn "data" to "window1"
          end if
        end if
      end if
      wait 20
      repeat with m = 7 to 12
        set the loc of btn "data" to line m of cd fld ("dataLocs" & n)
      end repeat
    end repeat
    hide btn "data"
  end repeat
end showDataMac




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=331 top=79 right=119 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 20769 / 20769
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: diska


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=89 right=129 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 15442 / 15442
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: diskb


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=90 right=117 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 6691 / 6691
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tape


-- part 7 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=235 top=107 right=146 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 6067 / 6067
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mac


-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=48 top=68 right=102 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 8808 / 8808
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: data


-- part 9 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=240 top=108 right=141 bottom=273
-- title width / last selected line: 0
-- icon id / first selected line: 1524 / 1524
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: screwDriver


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=97 right=149 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thingshappen


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=65 top=78 right=175 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name:


-- part 12 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=74 top=79 right=299 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: dataLocs1


-- part 13 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=171 top=79 right=299 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: dataLocs2


-- part 14 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=261 top=79 right=299 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: dataLocs3


-- part 15 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=57 top=172 right=189 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See It Again
----- HyperTalk script -----
-- This handler resets the animation and shows it again.
on mouseUp
  set cursor to none
  reset
  unlock screen
  doAnimation
end mouseUp



-- part contents for card part 11
----- text -----
HyperCard allows you to get to & use all your information with the friendly Macintosh interface.

-- part contents for card part 12
----- text -----
350,103
335,109
315,114
302,114
285,119
260,120
227,120
215,116
187,113
160,116
112,107
72,117







-- part contents for card part 13
----- text -----
348,101
320,115
306,109
297,120
289,120
260,120
242,132
215,141
173,148
133,141
94,152
68,145


-- part contents for card part 14
----- text -----
350,104
328,93
314,100
300,107
285,110
262,118
238,109
211,99
164,100
123,92
90,98
67,85